Shareware Grab Bag/Shareware Grab Bag.iso/007/ladybug.arc/TOOLS.BUG

Text File | 1984-03-12 | 628b | 41 lines

to "and   :a :b
if :a = "true [output :b = "true]
output "false
end

to "or   :a :b
if :a = "true [output "true]
output :b = "true
end

to "while   :condition :list
if ( run :condition ) = "false then stop
run :list
while :condition :list
end

to "forever   :list
repeat 32000 :list
forever :list
end

to "xor   :a :b
if :a = "true [output :b = "false]
output :b = "true
end

to "wait  :seconds
tone 32000  20 * :seconds
tone 32000 1  ;above times the wait; this makes us wait
end

to "max  :a :b
if :a > :b [output :a]
output :b
end

to "min  :a :b
if :a > :b [output :b]
output :a
end